---
title: "Deservingness als Heuristik oder als Automatismus"
output: html_notebook
---

Im Beitrag werden die bayesianischen Modelle nur grafisch aufgearbeitet. In diesem R Notebook werden konvetionelle tabellarische Aufarbeitungen und Teststatistiken nachgetragen.

(X) Zunächst einige Pakete 

```{r}
library(brms)
library(rstanarm)
library(texreg)
library(tidyverse)
```



(X) Ordinale Mehrebenenmodelle für Treatment-Effekte

```{r}
rm(list=ls())
load("TREAT_ORDINAL.RData")

summary(rc_pay)
summary(rc_edu)
summary(rc_unp)
```

(X) Lineare Mehrebenenmodelle mit Kontrollvariablen

```{r}
rm(list=ls())
load("MULTI_METRIC.RData")

summary(rc_pay)
summary(rc_edu)
summary(rc_unp)
```

(X) Lineare Mehrebenenmodelle mit Kontrollvariablen und Interaktionseffekten

```{r}
rm(list=ls())
load("MULTI_METRIC_INT.RData")

summary(rc_pay)
summary(rc_edu)
summary(rc_unp)
```
